home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / public / fax / src / util / recvstats.sh < prev    next >
Linux/UNIX/POSIX Shell Script  |  1994-08-01  |  7KB  |  284 lines
  1. #! /bin/sh
  2. #    $Header: /usr/people/sam/fax/util/RCS/recvstats.sh,v 1.5 1994/02/28 14:24:43 sam Rel $
  3. #
  4. # FlexFAX Facsimile Software
  5. #
  6. # Copyright (c) 1990, 1991, 1992, 1993, 1994 Sam Leffler
  7. # Copyright (c) 1991, 1992, 1993, 1994 Silicon Graphics, Inc.
  8. # 
  9. # Permission to use, copy, modify, distribute, and sell this software and 
  10. # its documentation for any purpose is hereby granted without fee, provided
  11. # that (i) the above copyright notices and this permission notice appear in
  12. # all copies of the software and related documentation, and (ii) the names of
  13. # Sam Leffler and Silicon Graphics may not be used in any advertising or
  14. # publicity relating to the software without the specific, prior written
  15. # permission of Sam Leffler and Silicon Graphics.
  16. # 
  17. # THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 
  18. # EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 
  19. # WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  
  20. # 
  21. # IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
  22. # ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
  23. # OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  24. # WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 
  25. # LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 
  26. # OF THIS SOFTWARE.
  27. #
  28.  
  29. #
  30. # Print Statistics about Received Facsimile.
  31. #
  32. SPOOL=/usr/spool/fax
  33. AWK=nawk
  34.  
  35. PATH=/bin:/usr/bin:/etc
  36. test -d /usr/ucb  && PATH=$PATH:/usr/ucb        # Sun and others
  37. test -d /usr/bsd  && PATH=$PATH:/usr/bsd        # Silicon Graphics
  38. test -d /usr/5bin && PATH=/usr/5bin:$PATH:/usr/etc    # Sun and others
  39. test -d /usr/sbin && PATH=/usr/sbin:$PATH        # 4.4BSD-derived
  40.  
  41. # look for an an awk: nawk, gawk, awk
  42. ($AWK '{}' </dev/null >/dev/null) 2>/dev/null ||
  43.     { AWK=gawk; ($AWK '{}' </dev/null >/dev/null) 2>/dev/null || AWK=awk; }
  44.  
  45. FILES=
  46. SORTKEY=-sender
  47.  
  48. while [ x"$1" != x"" ] ; do
  49.     case $1 in
  50.     -send*|-csi|-dest*|-speed|-rate|-format)
  51.         SORTKEY=$1;;
  52.     -*)        echo "Usage: $0 [-sortkey] [files]"; exit 1;;
  53.     *)        FILES="$FILES $1";;
  54.     esac
  55.     shift
  56. done
  57. if [ -z "$FILES" ]; then
  58.     FILES=$SPOOL/etc/xferlog
  59. fi
  60.  
  61. #
  62. # Construct awk rules to collect information according
  63. # to the desired sort key.  There are two rules for
  64. # each; to deal with the two different formats that
  65. # have existed over time.
  66. #
  67. case $SORTKEY in
  68. -send*|-csi)
  69.     AWKRULES='$2 == "RECV" && NF == 9  { acct($3, $7, $8, $5, $6, $9); }
  70.                $2 == "RECV" && NF == 11 { acct($6, $9, $10, $7, $8, $11); }'
  71.     ;;
  72. -dest*)
  73.     AWKRULES='$2 == "RECV" && NF == 9  { acct($4, $7, $8, $5, $6, $9); }
  74.               $2 == "RECV" && NF == 11 { acct($5, $9, $10, $7, $8, $11); }'
  75.     ;;
  76. -speed|-rate)
  77.     AWKRULES='$2 == "RECV" && NF == 9  { acct($5, $7, $8, $5, $6, $9); }
  78.               $2 == "RECV" && NF == 11 { acct($7, $9, $10, $7, $8, $11); }'
  79.     ;;
  80. -format)
  81.     AWKRULES='$2 == "RECV" && NF == 9  { acct($6, $7, $8, $5, $6, $9); }
  82.               $2 == "RECV" && NF == 11 { acct($8, $9, $10, $7, $8, $11); }'
  83.     ;;
  84. esac
  85.  
  86. #
  87. # Generate an awk program to process the statistics file.
  88. #
  89. tmpAwk=/tmp/xfer$$
  90. trap "rm -f $tmpAwk; exit 1" 0 1 2 15
  91.  
  92. (cat<<'EOF'
  93. #
  94. # Convert hh:mm:ss to seconds.
  95. #
  96. func cvtTime(s)
  97. {
  98.     t = i = 0;
  99.     for (n = split(s, a, ":"); i++ < n; )
  100.     t = t*60 + a[i];
  101.     return t;
  102. }
  103.  
  104. func setupDigits()
  105. {
  106.   digits[0] = "0"; digits[1] = "1"; digits[2] = "2";
  107.   digits[3] = "3"; digits[4] = "4"; digits[5] = "5";
  108.   digits[6] = "6"; digits[7] = "7"; digits[8] = "8";
  109.   digits[9] = "9";
  110. }
  111.  
  112. #
  113. # Format seconds as hh:mm:ss.
  114. #
  115. func fmtTime(t)
  116. {
  117.     v = int(t/3600);
  118.     result = "";
  119.     if (v > 0) {
  120.     if (v >= 10)
  121.         result = digits[int(v/10)];
  122.     result = result digits[int(v%10)] ":";
  123.     t -= v*3600;
  124.     }
  125.     v = int(t/60);
  126.     if (v >= 10 || result != "")
  127.     result = result digits[int(v/10)];
  128.     result = result digits[int(v%10)];
  129.     t -= v*60;
  130.     return (result ":" digits[int(t/10)] digits[int(t%10)]);
  131. }
  132.  
  133. #
  134. # Setup a map for histogram calculations.
  135. #
  136. func setupMap(s, map)
  137. {
  138.     n = split(s, a, ":");
  139.     for (i = 1; i <= n; i++)
  140.     map[a[i]] = i;
  141. }
  142.  
  143. #
  144. # Add pages to a histogram.
  145. #
  146. func addToMap(key, ix, pages, map)
  147. {
  148.     if (key == "") {
  149.     for (i in map)
  150.         key = key ":";
  151.     }
  152.     n = split(key, a, ":");
  153.     a[map[ix]] += pages;
  154.     t = a[1];
  155.     for (i = 2; i <= n; i++)
  156.       t = t ":" a[i];
  157.     return t;
  158. }
  159.  
  160. #
  161. # Return the name of the item with the
  162. # largest number of accumulated pages.
  163. #
  164. func bestInMap(totals, map)
  165. {
  166.    n = split(totals, a, ":");
  167.    imax = 1; max = -1;
  168.    for (j = 1; j <= n; j++)
  169.        if (a[j] > max) {
  170.        max = a[j];
  171.        imax = j;
  172.        }
  173.    split(map, a, ":");
  174.    return a[imax];
  175. }
  176.  
  177. #
  178. # Sort array a[l..r]
  179. #
  180. function qsort(a, l, r) {
  181.     i = l;
  182.     k = r+1;
  183.     item = a[l];
  184.     for (;;) {
  185.     while (i < r) {
  186.             i++;
  187.         if (a[i] >= item)
  188.         break;
  189.         }
  190.     while (k > l) {
  191.             k--;
  192.         if (a[k] <= item)
  193.         break;
  194.         }
  195.         if (i >= k)
  196.         break;
  197.     t = a[i]; a[i] = a[k]; a[k] = t;
  198.     }
  199.     t = a[l]; a[l] = a[k]; a[k] = t;
  200.     if (k != 0 && l < k-1)
  201.     qsort(a, l, k-1);
  202.     if (k+1 < r)
  203.     qsort(a, k+1, r);
  204. }
  205.  
  206. #
  207. # Accumulate a statistics record.
  208. #
  209. func acct(key, pages, time, br, df, status)
  210. {
  211.     gsub("\"", "", key);
  212.     gsub("^ +", "", key);
  213.     gsub(" +$", "", key);
  214.     recvpages[key] += pages;
  215.     if (pages == 0 && time > 60)
  216.     time = 0;
  217.     recvtime[key] += cvtTime(time);
  218.     gsub("\"", "", status);
  219.     if (status != "")
  220.     recverrs[key]++;
  221.     gsub("\"", "", br);
  222.     recvrate[key] = addToMap(recvrate[key], br, pages, rateMap);
  223.     gsub("\"", "", df);
  224.     recvdata[key] = addToMap(recvdata[key], df, pages, dataMap);
  225. }
  226.  
  227. #
  228. # Print a rule between the stats and the totals line.
  229. #
  230. func printRule(n, s)
  231. {
  232.     r = "";
  233.     while (n-- >= 0)
  234.     r = r s;
  235.     printf "%s\n", r;
  236. }
  237.  
  238. BEGIN        { FS="\t";
  239.           rates = "2400:4800:7200:9600:12000:14400";
  240.           setupMap(rates, rateMap);
  241.           datas = "1-D MR:2-D MR:2-D Uncompressed Mode:2-D MMR";
  242.           setupMap(datas, dataMap);
  243.         }
  244. END        { OFS="\t"; setupDigits();
  245.           maxlen = 15;
  246.           nsorted = 0;
  247.           for (i in recvpages) {
  248.               l = length(i);
  249.               if (l > maxlen)
  250.             maxlen = l;
  251.               sorted[nsorted++] = i;
  252.           }
  253.           qsort(sorted, 0, nsorted-1);
  254.           fmt = "%-" maxlen "." maxlen "s";    # e.g. %-24.24s
  255.           printf fmt " %5s %8s %6s %4s %7s %7s\n",
  256.               "Sender", "Pages", "Time", "Pg/min",
  257.               "Errs", "TypRate", "TypData";
  258.           tpages = 0;
  259.           ttime = 0;
  260.           terrs = 0;
  261.           for (k = 0; k < nsorted; k++) {
  262.               i = sorted[k];
  263.               t = recvtime[i]/60; if (t == 0) t = 1;
  264.               n = recvpages[i]; if (n == 0) n = 1;
  265.               brate = best
  266.               printf fmt " %5d %8s %6.1f %4d %7d %7s\n",
  267.               i, recvpages[i], fmtTime(recvtime[i]),
  268.               recvpages[i] / t, recverrs[i],
  269.               bestInMap(recvrate[i], rates),
  270.               bestInMap(recvdata[i], datas);
  271.             tpages += recvpages[i];
  272.             ttime += recvtime[i];
  273.             terrs += recverrs[i];
  274.           }
  275.           printRule(maxlen+1+5+1+8+6+1+4+1+7+1+7, "-");
  276.           t = ttime/60; if (t == 0) t = 1;
  277.           printf fmt " %5d %8s %6.1f %4d\n",
  278.               "Total", tpages, fmtTime(ttime), tpages/t, terrs;
  279.         }
  280. EOF
  281. echo "$AWKRULES"
  282. )>$tmpAwk
  283. $AWK -f $tmpAwk $FILES
  284.